3.145 \(\int \frac{x^{13}}{(a+b x^2)^2} \, dx\)

Optimal. Leaf size=94 \[ \frac{a^2 x^6}{2 b^4}-\frac{a^3 x^4}{b^5}+\frac{5 a^4 x^2}{2 b^6}-\frac{a^6}{2 b^7 \left (a+b x^2\right )}-\frac{3 a^5 \log \left (a+b x^2\right )}{b^7}-\frac{a x^8}{4 b^3}+\frac{x^{10}}{10 b^2} \]

[Out]

(5*a^4*x^2)/(2*b^6) - (a^3*x^4)/b^5 + (a^2*x^6)/(2*b^4) - (a*x^8)/(4*b^3) + x^10/(10*b^2) - a^6/(2*b^7*(a + b*
x^2)) - (3*a^5*Log[a + b*x^2])/b^7

________________________________________________________________________________________

Rubi [A]  time = 0.0762538, antiderivative size = 94, normalized size of antiderivative = 1., number of steps used = 3, number of rules used = 2, integrand size = 13, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.154, Rules used = {266, 43} \[ \frac{a^2 x^6}{2 b^4}-\frac{a^3 x^4}{b^5}+\frac{5 a^4 x^2}{2 b^6}-\frac{a^6}{2 b^7 \left (a+b x^2\right )}-\frac{3 a^5 \log \left (a+b x^2\right )}{b^7}-\frac{a x^8}{4 b^3}+\frac{x^{10}}{10 b^2} \]

Antiderivative was successfully verified.

[In]

Int[x^13/(a + b*x^2)^2,x]

[Out]

(5*a^4*x^2)/(2*b^6) - (a^3*x^4)/b^5 + (a^2*x^6)/(2*b^4) - (a*x^8)/(4*b^3) + x^10/(10*b^2) - a^6/(2*b^7*(a + b*
x^2)) - (3*a^5*Log[a + b*x^2])/b^7

Rule 266

Int[(x_)^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Dist[1/n, Subst[Int[x^(Simplify[(m + 1)/n] - 1)*(a
+ b*x)^p, x], x, x^n], x] /; FreeQ[{a, b, m, n, p}, x] && IntegerQ[Simplify[(m + 1)/n]]

Rule 43

Int[((a_.) + (b_.)*(x_))^(m_.)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[(a + b*x)^m*(c + d
*x)^n, x], x] /; FreeQ[{a, b, c, d, n}, x] && NeQ[b*c - a*d, 0] && IGtQ[m, 0] && ( !IntegerQ[n] || (EqQ[c, 0]
&& LeQ[7*m + 4*n + 4, 0]) || LtQ[9*m + 5*(n + 1), 0] || GtQ[m + n + 2, 0])

Rubi steps

\begin{align*} \int \frac{x^{13}}{\left (a+b x^2\right )^2} \, dx &=\frac{1}{2} \operatorname{Subst}\left (\int \frac{x^6}{(a+b x)^2} \, dx,x,x^2\right )\\ &=\frac{1}{2} \operatorname{Subst}\left (\int \left (\frac{5 a^4}{b^6}-\frac{4 a^3 x}{b^5}+\frac{3 a^2 x^2}{b^4}-\frac{2 a x^3}{b^3}+\frac{x^4}{b^2}+\frac{a^6}{b^6 (a+b x)^2}-\frac{6 a^5}{b^6 (a+b x)}\right ) \, dx,x,x^2\right )\\ &=\frac{5 a^4 x^2}{2 b^6}-\frac{a^3 x^4}{b^5}+\frac{a^2 x^6}{2 b^4}-\frac{a x^8}{4 b^3}+\frac{x^{10}}{10 b^2}-\frac{a^6}{2 b^7 \left (a+b x^2\right )}-\frac{3 a^5 \log \left (a+b x^2\right )}{b^7}\\ \end{align*}

Mathematica [A]  time = 0.0299354, size = 83, normalized size = 0.88 \[ \frac{10 a^2 b^3 x^6-20 a^3 b^2 x^4+50 a^4 b x^2-\frac{10 a^6}{a+b x^2}-60 a^5 \log \left (a+b x^2\right )-5 a b^4 x^8+2 b^5 x^{10}}{20 b^7} \]

Antiderivative was successfully verified.

[In]

Integrate[x^13/(a + b*x^2)^2,x]

[Out]

(50*a^4*b*x^2 - 20*a^3*b^2*x^4 + 10*a^2*b^3*x^6 - 5*a*b^4*x^8 + 2*b^5*x^10 - (10*a^6)/(a + b*x^2) - 60*a^5*Log
[a + b*x^2])/(20*b^7)

________________________________________________________________________________________

Maple [A]  time = 0.008, size = 85, normalized size = 0.9 \begin{align*}{\frac{5\,{a}^{4}{x}^{2}}{2\,{b}^{6}}}-{\frac{{a}^{3}{x}^{4}}{{b}^{5}}}+{\frac{{a}^{2}{x}^{6}}{2\,{b}^{4}}}-{\frac{a{x}^{8}}{4\,{b}^{3}}}+{\frac{{x}^{10}}{10\,{b}^{2}}}-{\frac{{a}^{6}}{2\,{b}^{7} \left ( b{x}^{2}+a \right ) }}-3\,{\frac{{a}^{5}\ln \left ( b{x}^{2}+a \right ) }{{b}^{7}}} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(x^13/(b*x^2+a)^2,x)

[Out]

5/2*a^4*x^2/b^6-a^3*x^4/b^5+1/2*a^2*x^6/b^4-1/4*a*x^8/b^3+1/10*x^10/b^2-1/2*a^6/b^7/(b*x^2+a)-3*a^5*ln(b*x^2+a
)/b^7

________________________________________________________________________________________

Maxima [A]  time = 2.17364, size = 119, normalized size = 1.27 \begin{align*} -\frac{a^{6}}{2 \,{\left (b^{8} x^{2} + a b^{7}\right )}} - \frac{3 \, a^{5} \log \left (b x^{2} + a\right )}{b^{7}} + \frac{2 \, b^{4} x^{10} - 5 \, a b^{3} x^{8} + 10 \, a^{2} b^{2} x^{6} - 20 \, a^{3} b x^{4} + 50 \, a^{4} x^{2}}{20 \, b^{6}} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^13/(b*x^2+a)^2,x, algorithm="maxima")

[Out]

-1/2*a^6/(b^8*x^2 + a*b^7) - 3*a^5*log(b*x^2 + a)/b^7 + 1/20*(2*b^4*x^10 - 5*a*b^3*x^8 + 10*a^2*b^2*x^6 - 20*a
^3*b*x^4 + 50*a^4*x^2)/b^6

________________________________________________________________________________________

Fricas [A]  time = 1.27641, size = 221, normalized size = 2.35 \begin{align*} \frac{2 \, b^{6} x^{12} - 3 \, a b^{5} x^{10} + 5 \, a^{2} b^{4} x^{8} - 10 \, a^{3} b^{3} x^{6} + 30 \, a^{4} b^{2} x^{4} + 50 \, a^{5} b x^{2} - 10 \, a^{6} - 60 \,{\left (a^{5} b x^{2} + a^{6}\right )} \log \left (b x^{2} + a\right )}{20 \,{\left (b^{8} x^{2} + a b^{7}\right )}} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^13/(b*x^2+a)^2,x, algorithm="fricas")

[Out]

1/20*(2*b^6*x^12 - 3*a*b^5*x^10 + 5*a^2*b^4*x^8 - 10*a^3*b^3*x^6 + 30*a^4*b^2*x^4 + 50*a^5*b*x^2 - 10*a^6 - 60
*(a^5*b*x^2 + a^6)*log(b*x^2 + a))/(b^8*x^2 + a*b^7)

________________________________________________________________________________________

Sympy [A]  time = 0.439369, size = 88, normalized size = 0.94 \begin{align*} - \frac{a^{6}}{2 a b^{7} + 2 b^{8} x^{2}} - \frac{3 a^{5} \log{\left (a + b x^{2} \right )}}{b^{7}} + \frac{5 a^{4} x^{2}}{2 b^{6}} - \frac{a^{3} x^{4}}{b^{5}} + \frac{a^{2} x^{6}}{2 b^{4}} - \frac{a x^{8}}{4 b^{3}} + \frac{x^{10}}{10 b^{2}} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x**13/(b*x**2+a)**2,x)

[Out]

-a**6/(2*a*b**7 + 2*b**8*x**2) - 3*a**5*log(a + b*x**2)/b**7 + 5*a**4*x**2/(2*b**6) - a**3*x**4/b**5 + a**2*x*
*6/(2*b**4) - a*x**8/(4*b**3) + x**10/(10*b**2)

________________________________________________________________________________________

Giac [A]  time = 2.45078, size = 139, normalized size = 1.48 \begin{align*} -\frac{3 \, a^{5} \log \left ({\left | b x^{2} + a \right |}\right )}{b^{7}} + \frac{6 \, a^{5} b x^{2} + 5 \, a^{6}}{2 \,{\left (b x^{2} + a\right )} b^{7}} + \frac{2 \, b^{8} x^{10} - 5 \, a b^{7} x^{8} + 10 \, a^{2} b^{6} x^{6} - 20 \, a^{3} b^{5} x^{4} + 50 \, a^{4} b^{4} x^{2}}{20 \, b^{10}} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^13/(b*x^2+a)^2,x, algorithm="giac")

[Out]

-3*a^5*log(abs(b*x^2 + a))/b^7 + 1/2*(6*a^5*b*x^2 + 5*a^6)/((b*x^2 + a)*b^7) + 1/20*(2*b^8*x^10 - 5*a*b^7*x^8
+ 10*a^2*b^6*x^6 - 20*a^3*b^5*x^4 + 50*a^4*b^4*x^2)/b^10